home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
MAILPOST.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
2KB
|
16 lines
;;; compiled by jwz@thalidomide on Tue Jun 30 23:30:31 1992
;;; from file /cadillac-th/jwz/emacs19/lisp/utils/mailpost.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(fset 'post-mail-send-it #[nil "½à┴┬!¬ü├─┴┼!╞ëp \n═Äè\nqê╬ ê╧!êdbêh╨U¼â╨cêebê╤╥╥Q!ê╘╒!ê╓╫!ê╪ ½å┌e\"êebê█▄▌#½î`W½å╘╥!ê¬l▌ ebê█▐▌#½à▀!êebê█α▌#½ùèebê█ß▌#)¼è╫yêΓπ ╥▒êebê█Σ▌#½ä╘σ!ê½ëèqê╬ ê))µτ!ë!êΦΘ\"êΩδ∞φε!½ä.¬ü∩╞╞≡±»½â≥¬ü≤C#\"ê¡úèqêebê█⌠╞▌#½å╘⌡!ê¬s÷ ├U?¡å≈°ed{\").ç" [mail-interactive generate-new-buffer " post-mail errors" 0 "/tmp/,rpost" " post-mail temp" nil mailbuf delimline case-fold-search tembuf temfile errbuf ((byte-code "└ !ê┬!½ä─!ê└ç" [kill-buffer tembuf bufferp errbuf switch-to-buffer] 2)) erase-buffer insert-buffer-substring 10 search-forward "\n" mail-header-separator replace-match "\n\n" backward-char 1 point-marker mail-aliases expand-mail-aliases re-search-forward "\n\n\n*" t "^FCC:" mail-do-fcc "^From:" "^Sender:" "Sender: " user-login-name "^Subject:[ ]*\n" "" write-file make-temp-name set-file-modes 384 apply call-process append boundp post-mail-program "/usr/uci/lib/mh/post" "-nofilter" "-msgid" ("-watch") ("-nowatch") "\n\n* *" "; " buffer-size error "Sending...failed to %s"] 9 "\
the MH -post interface for rmail-mail to call.
to use it, include (setq send-mail-function 'post-mail-send-it) in site-init."])